dirpath <- "C:/tappelhans/uni/UC/colleagues/iman/Autumn"
file <- "rsalt.dat"

data <- read.table(paste(dirpath, file, sep = "/"), colClasses = c("character", 
                                                                   "numeric",
                                                                   "numeric"))
#data$V1
source("C:/tappelhans/uni/software/development/metvurst/windContours/windContours.R")
#png(paste(dirpath, "test.png", sep = "/"), height = 768*2, width = 1024*4, res = 300)
windContours(hour = data$V1,
             wd = data$V2,
             ws = data$V3,
             add.var = data$V3,
             smooth.contours = 1.5,
             smooth.fill = 1.5,
             n.zlevels = 5,
             ncuts = 0.1, 
             centre = "E",
             speedlim = 7.5,
             stripname = "test",
             keyint = c(0, 3.5),
             keyspacing = 0.5,
             spacing = 1,
             labels = T)
#dev.off()